Labels:text | screenshot OCR: Over 400 megs and 25,000 files of Source Code BYTESIZE MICROSOFT WINDOWS. CD-ROM, INC. WINDOWS 9X/NT COMPATIBLE x Source Code for the Visual Basic® Developer - VisData - Microsoft Visual Basic [design] . [limAddField [Code]] × Eile Edit View Project Format Debug Run Tools Add-Ins Window Help × 3125% 15, Col1 Form Load 7/1 Private Sub cmdOK Click() On Error GoTo OkayErr Dim fld As Field ' local field structure Dim i As Integer get a fresh field object Set fld = gtdfTableDef. CreateField( ) fill the field structure With fld . Name = txtFieldName.Text . Type = cboFieldType.ItemData (cboFieldType. Listindex) .Size = txtFieldSize. Text If Len(txtOrdinalPos. Text) > 0 Then . OrdinalPosition = txtOrdinalPos. Text gsDataType = gsMSACCESS Then . Required = IIf (chkRequired. Value = vbChecked, - 1, 0) If .Type = dbText Then 'this only applies to text . AllowZeroLength = IIf (chkAllowZeroLen. Value = vbChecked, - 1, 0) Visual Basic Source Code PROFESSIONAL Supports Visual Basic® 5 & 6
